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umm i ] 

[I**JI2] 

±|SfflM 7?^^ ^Mt £ ItlJM 7t-Atf-^ fl5tf#1" * t** — * (DM 

If 2 8B*c<7> y n ^* ^ A £)&7Jv£ H & v > T . 

<b ±1EH# "/ n $r 9 A £ ft 1" & •f - * £ fft ffl -f & * -f -y 7° , _tf B 

$3$ 7077A 7&*g Bi£ £ ti fz •? n y 7 A fl§0 7*- * fern iz $t&1r 2> * -r y 7' £ 
£ m-t & - t £ mk t ir 2> 7° n 9 A Hff 7j So 
4] 

5 ] 

-his® ® 77^^ ft^-r h mmm y * - a tf - * w#-r * r-*- * on 
s t , ±mmm -fuv^u mm. £ n £ ?° n ^ 9 a wii 4- jt^-r a & it *. 
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[0 0 0 1] 
[0 0 0 2] 

[0 0 0 3] 

[§§ Wfi? & Lid <bi~-5> US] 

±IB' < 9 ^ - * £ fr#J -f Z> t Z % t -e (i "T t? & & t5 5 \ 5>#J $ £1B * O -f - 

? ^fit -t-v y V $ ftfcH^T ^ - v a > t tztb K 

[0 0 0 4] 

^(7) i ft {±, ±^<^>^*M ^ £ it & IlfM K§§^> 7°n^5A 
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-T & -f u 7 7 a a if n-r-V >9~Zti tzMffi 7 5 n^*7A^ #B u jS^T* # £ =fc 

9 13 ±f S 7°0^*7 A flK 3 - "TV > r $ *l 7C mm 7° n ^ 7 A (7) ££! Ziffc-fZ 
[0 0 0 5] 

mm z mik-t & tz *><r>^m 

±fBiw*£j£-r*fc#. wm.\im*>z>*kmu Mi7 7 >f;^Mn 

[0 0 0 6] 

i*« 2 t> %> §tm it , m^m i x&^tz -fu ? 9 a & £ n^-r & tz 
^m7f7 ytm^mm^mir^^v-y 7°*m*.hz\ t itmkt-$-& 0 

[0 0 0 7] 

m 3 *> * §tw it , iiis $ n £ / ^ * - * a* & #1? * t-*- 9 % m m -t & 

x j r-y~7t^fi*?ti<r>mK*:i tz r- 9 tei!^ 83*1" l>^f 7 7°^fx.fcl 
[0 0 0 8] 

mm *m ^ t\ ^mnomm^m * mm-r & 0 
m i k y n ^ m lsb&o^js $ 7d^*7a <7>^a<7)^jfe0ii £ ^i- 0 

t\r- 9 <DX\&t}*>$L^t-t- hmm-hmmA \ 1 o, ®®b 120, ®bc 1 
<;^jix Y(D^%it, zi--4?frh(F>x-t)7*- 9 <D\ifr\z,7>- 9 mm<7>miz>&m: 

t%hU*%r-91)K&&Z1Xtzm&\Zti:^X^Z>o Servletl 6 0\±mUfrb 

<n> xtj r- 9 % *ti<?ti izttfc Ltzzfuy^A wf-m Lmz$m-t & &#j £ #o 0 

Native^ >^ "7 i-X 17 0^^18 0 (iCOBOLi tzitjava (Java(2 S u n M 
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icrosystems, Inc. <DffiM i> L < (ilBlM*"e& £ ) KifrlS L 

[0 0 0 9] 

IIA 1 1 0<7)7?-tX£Servlet 1 6 Ort^WK U h ^IMA 1 1 

0 tcJtJE&L^yn^9APfm«BA 1 1 1 tcig-fo 7°n^7AD«Al 1 Hi 'J 
h<7)<t3^^X0B0LHf^7°n^7 A A 1 1 2 ICiSi-^cO^^T-'-^ *JS£h 
-T&o ffltB$n^r'-^(±C0B0L*^7 p D^7 A A 1 1 2^7^-^ t LTJi 
^£*iT^&-r-?M^J££ft&o yn^^APfm LSBA 1 1 1 J±^»0»*» 

0 7t -r - * £Nat ive <f > ? 7 i - X (COBOL) 1 70^^L "CCOBOLUfl? 7° n 9 
AA 112 tCK5c"t4o ft^CC0B0LH^7°n^7 A A 1 1 2 fcUffS-frao 

[0 0 10] 

iSMB 1 2 0<07^-feX(iServlet 1 6 0j&*$lt#»K U h £M®B 1 2 

OUWSLfc-^n^AIJ^ffi^B 1 2 1 natto ADf ttig&B 12 Ki'J 

^.xx hO^£>X0B0L#f£-7°n^AB 1 2 2 U«N-i&f?o*& r'- * 
-t*o ffl tB £ ft 7j -r — ^ (±C0B0LHf£ 7°o^7AB 1 2 2W^-?i: LTjg 
S$*itv>4 7'-^Si:^$*iSo yn^vAP^mLSPB 1 2 1 t±ggftO&:fc> 
o£t"*-* £ Native >^7x-X (COBOL) 1 7 0 £t> LTC0B0LHf£-7°n 
AA 1 2 2 tC|5^i-a o *m^>C0B0LH^yn^7AB 1 2 2 SrHfi^-fr&o 
[0 0 1 1 ] 

IIC 1 3 0<7>7^-feX£Servlet 1 6 0j& f $lt#lK'J £®®C 1 3 

0{cWSL£7 p n^Aiq i mg&C 1 3 1 Ktti- 0 ■/o^^ADfffifflJC 13 1 (±V 
^7 hto^frh JavaH^^n^^AC 1 3 2 Izmir &m<7>&2> r~- 9 Srtttti 
i"£o ttth$tL7JX-^(iJavaH^-7°n^vAC 1 3 2<7V^;<-? t LTJbte 
$tLTv>4f'-^Mtca2lfe$tL*o ^n^AD^fcti LSBC 1 3 1 t±3S!fcOj|**)o 
£-T-?£Native^ ^7x-7 (Java) 1 8 0 LTJavaH^^n A C 

1 3 2 ^fSjc-f £ 0 ft^^JavaHf^'T'n^^AC 1 3 2 SrUff 

[0 0 12] 
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7 o 

Hi 2 tc*|§H^^iifflL/i7 0 n^^A«#IM^^-ro IS7r^V2 0 0[*1U 

<75 r* - * HM. t D ^ 7 A £ 0* tti f * cOP^tb LSR o It & £gf^<7>tif 

fR^^tffR2 0 1 tl7£f|i--5)o 7E*'lf#2 0 1 Z$LJ&y-)V2 1 0 75 ? ff .7*?^ 

vwmfrb mm y° n ^ ^ a £ m -t tz \z &m & y r 4 & & & 0 ± ^ 

XtirtjZft^mtZW^o -7°n^vAflfaJLgBOV-x-7T 4 )V2 3 OS^ati 
ve-T >^7x-7«y-X77^i/2 4 0 (i®M^Hf^-7°n^^ U<r>T—9<nX 
m £ # ft £ i" * S *l Sr # *> x -r - ? M <7) -r - ? ^> / < 9 ^ - * <7)ffl ffi 

m<nm^n^o *»rn^9Aoii2 5 emails iis^jni 

[0 0 13] 

Lg|S2 7 0, Natives 7x-^ 2 8 0, *»7*n/7A 2 9 0 i:ftS o 
[0 0 14] 

EI 3 J£Jl|$ icHI 2 Lfz^.^.^m<Dfpi t zmx %tz7r 4 )V^>7°u ?yu tcov> 
HI 3 r ;POi^^^f 0 0 0 (i>£]|fr£ A# 

tfXOx^rX h7>f K3 1 0 , K£Afr £ Or 3- X F7Y- 

;i/K3 2 0. 7 Af- * £3£M1-&£i6<7>i§>fg*** > 3 3 0 5& s Efi£*iTV> 

[0 0 15] 

HI 4 r <i )V2 0 0 coi^lffln- K£^-f 0 *WiH®£^Ffffl#p-t'& 9 

ywmxumztix^&o ^mm^2 o ix\ jidt^oik&nwM? r&R^ 
x^^wmsnmrnztemCx^Zo ts»2 i 2xm%kmmzfcm-tz>o cia 
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S sNameSt4lC7°n^7 ADftti LSBO£;fr£tt5e LTV>& 0 dllNameJRte* program 
Name«14U JiOf H?£-7°n ^* 9 A ODLL"7 r >f ^£ <h HP£<7) "7° n 9 A £ (M 
H^Ut^o WordJg14-C-WfS&*&5EL-Cv>& 0 scopeJStt, id«14(i 

lot|S|- % i mz.-tZ>Z.hX*^'fVx.>7 h fcOMii#tt**fTX.*o interfaced 

-tmZ^zE-f&o typem&X*lZ7*-?mZ1fefcir%>o alignmentJl14tZt±tt£ 
*-fr*ti^*o paddingCharJ114tC(±ffii6^<7)ffla6^)^ (x^-x, -tfn, N 

ull^^) £t^-r& 0 

[0016] 

nL7t:^co-e^^ 0 fcmmm.s o oi^oKmit^s o 1 izimmKttfcLtz-fu 

V? APf tb L^£#o6 ? Sample. Paget* & 0 , tfJ-fi£f£-7°n ^7 A ODLLfc&rt* 
SAMPLE, yn^^A^^WUSER^V^^^TN^^sIgfiCOBOLT'^)^ fcv*? CI 
fc^Ltv^o r'-^5eaHffR5 0 2t*liIjS7r^^2 0 0 Unamend £ 
^ £ ft tz r- 9 H?£ 7 , n/5Atf iiUSERNAME t v > 9 tz t -y fcT > ^ 
L,-r*-^M(ikanjiM-e> f-^lilOt^ il^tziix^-x & 

t V » -9 It* ^UV^o id V >d £ ffc-C^a $ *Lfc T-*- * l± , Hf£ ■/ 

■CtiUSERIDtv^^tzvy t 0 >^L,-r-^M(icharacterM-C\ r-'-^ft(i8 
S*^H(±zero ( "0" ) *f ffltS ti/^ffl|«^LTV»-5 e button £ 
v » 9 £&T*5ei8 $ ft tz r - 9 it , H?£ 7°n^7At* (iSYORIFLUG £ v » -9 tz -7 y 
t°>^L.T-'-^M(inumberMt:\ f-^flil^ ffi^^ii'fiffl L&v* i: w 

[0 0 17] 

@6li4i7-^2 1 0<7)53iS7n-^^LTv^ o H 6 <OlftE£|{i[l 4 , [15 
> III 7, El 8, EI9 £#BSL&/6 ? <MTdo EI4 t:^tlffl7 7-f 0 0<7)^i 

If #2 0 1 zmMz^me 1 o-e, 1177^2 0 OT^ss^-c&^jfd-c 
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■tfcmmm.7--y>)\s5 o o ^Mt^o ^mm^-y^s o oi*Hc(±,Mit'iif 

$gf--r^5 0 1 tr-^^.mmmf--y'^ 5 0 2^&£o 
[0 0 181 

MStfif »f — 7' ;i/ 5 0 1 OD^ffi Lffife^i: {iWBUtttS L/WtU LfiBO^* 
^LTv^-CEI4 OTI^gR2 1 2 <aclassName£>f&141ft"C-aii>4o ? 7"- v£ffc<± 

d* ^rtOdllNameWJRttlS"C*4o W-rHf^^a ^7 AO^S:^ L 

tv^t, programNameOSIM-e^^o Hl§fiH?£7°n ^9 A OWIfeSS*^^ 
L T w » T , Word<7) Sf4Ut T* * 4 o 
[0 0 19] 

7*- ^5gilfll*T--^ 5 0 2 (7)M>liBl7 r >f ;w 2 0 0 Uj3V>t\HI£tf> 
7^At77x^ MiPMttlt/^^C&oT^T^ OT*ISB2 0 3 O name 
WJRttflt-e * 4 o COBOL^^iiHf^ 7n 7 A |*|T\ ftffi $ ft & -f - 9 <mM% T% 

hm a > h xt) £ ti & r- 9 % & mm •? n if ? a m u so co % m * o it <o -e * * 

o Jfd:data^^rtOinterfaceO«tt||-C*&o -r — ^ M (iHf£ "7° o^7A "C^ 

^^L7t^<7)-r',alignment<7)JH4fli"C*)^o ^^fcofcttfrKflfri* 

C tT\paddingCharOJR1±ilT*ab^o 
[0 0 2 0] 

iS^n 2 5 0 <7)Hl§IS^a 6 2 0 ttMSfctiMR'r-'T'^ 5 0 1 <T> 

TO<*>£B&xU1S:5£S*l<&o H^7'd^^a||M2 5 0 RtfNativcf > * 7 i 

-x (v-x) 2 4 0 K0¥m-tw»fe£t&e-r&*!yi6 3 o-ct±, iw&tim-r- 

y;U5 0 1 <7)K^^Jgg7&5#BB$tL^o 0 9c7)||^-7 o n^^A<7)iSM2 5 0 O 
PROGRAM-ID. NEWUSER. t^te $ ft & 0 T- 9 5e*H**Mfcm5M£&3 6 4 0 "C(i> 
x - 9 5clSHff$R"r- - -7'^ 5 0 2^f>ll^3 - Ko*of^;j£A,-Cv> < 0 7*- ? 
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do 1218 Ic^-t-Zn^AnfffiLgR (v-x) 2 3 0rt<7)f-^fM2 3 1i: 
j f dConvJSt r^V7 K t j f dLj ust , j fdRj ust ^ V v Vtf±f& Zti2> 0 T- 9 * 

fr-£-C, — 5fc L fct&'&li » - K -7° n 7 u ffi L«Brt» ^ f* - * =£r *Dtf#-f %>tzt><» 
* V -7 Kfc&^&trftLSfcff % 17 <DW)Mr- 9 #hs®B 7r^2 2 0rt» 
T»2 2 2 IC-etL-etLvalueJSttffilCJR^^ V v Vtf&mZtiX^Z> 0 
[0 0 2 1 ] 

%.Kmm-7vr7^MM2 5 ORtf^n^AB^ffiLa^ 3 OCf-^^it 
f-*-7f£7E^ V y b'&&&-t&ti!M6 7 0 £^T7o 0 8 <DT-9^U2 3 1 S. 

Off-/D^7 AC0SM2 5 0 1*1 tC 4> LINKAGE SECTI0NcOC0PY^)<Ort#h LT,W 

o<{)i5;t^li,i7-M6 8 2 fcfrV 4 ? r * ;HiMt4lS Lfcv>-C&Ti"& 
o f - ^ 1 oW±*-i>^li^tL 7 ;K^)MM6 8 1 Srfi 1 

[0 0 2 2] 

H 7 HlfrtfjT-*- ^#Miffi7 7^^2 2 0 Of^ffln- K£^1"o Til 2 2 1 
7°n $r 7 AD^m L|5C7^^Xfl. tz*b<DWL % ltv^ 0 classO^ttjfifi 
MB "7 7^^2 0 0 OTISB2 0 2 cOclassNameOSttfit-e^^o idO^ttfKi 
T*ftgB2 0 2<0\mm>®MX$)2> 0 scope<7)^tifit{iTira2 0 2 CO scoped 14 
ffiT'^^o ffl®7r^;u2 0 0<7)%fr^]imM9 ?X'fcmziiX^Z> l fem*'£ 

& o TfflLU 2 2 2 It y * - A * 7 V j. 9 h <7)|£^t>^:5& ? > - 
77^^2 0 0 rtt?T*ft*P 2 0 3 Wf- ^^aif DnameO«141i7& s *> 
-5ft^:,^f-^^t-6^^V7 K*valueJRttU*&3feLTv»So - 

^t^-fctjiryjt-v a >frbjybfr<Dr-?zm%Lx®fflmt l 
T^/^-r & c t imm \z & & 0 

[0 0 2 3] 
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H8 [z-fu^y^iatU2 3 0O#ffl3-K^t o t-'-^M<7)^>^B 
M3£R2 3 Nat ive 4 > 9 7 x. — 7>\Zt*— 9 ^Ig^ef^setName, setld.se 

tButtonfcv^ ^ V y K^\®M^ h \j] £ ilk T- 9 K*frt£ LT^i? tlX 
o •^fl-S'fltf) ^ V ■> KtirtSBTsetUsername, setUserid, setSyorif lug<h i»i>V 
•yK&D^ffiU ^B£K*&7 p n2 r 9 Atcf-* ZWLfc-t&o tLXfg 
^LTV^x-^(ijfdConvJStrtv^ ^ V 7 K K , rfc^Hfc L£ f- * & <7) 

£?#&o Of- * £ jfdDataRj ust £ fc(i jfdDataLjust t ^ KUat"t*£ 
[0 0 2 4] 

-^iiiSS^M^ 2 3 2 TJigetParameter^ V 7 F^fot'J? 
.xx h <04»^£>name, id, button <h &foXWC&.Z ^ Z^ti^ 

tam-tZo t tzmmLtzr-?&r-?w<7)$cm,mmmu2 3 i-caa$ 

fLTtSbg* V* K£l£ffi LTNative^ > * 7 x -X tcf&5e LT^io 
[0 0 2 5] 

x- * Ojfttt} £ r*- * 0^.i£^M££T^£> t,-^T^<b 7°n 7*7 AD*ffl 
Lg|52 3 3-CcallCOBOL^ V y K-Cffyn Al^ft L&SfcfTo tv^„ 
[0 0 2 6] 

EJ9 lcH^-7°n^7A||M2 5 OOfNffln- Kfcjjr*- 0 |tf£-7 0 n ^ A«£M 2 

5 ot±®M-7r^;u2 o o\*\<Dfcmmm.2 o 1 ^Tc^^^^MBtoAai^^ 

$i*)tz*><n r- 9 5e***BEUiBiE $ tit i» & ^ S * 

^5eH«B2 5 1 tm&&2 5 2^<b&& 0 ti/j^yn A 

$tM^7T^;Wl|ifl#£#rt ? il^gg&2 5 2 ^n-r-V >^LT^^n>/NM^?r 
tfV^BeS-f ^-t^^^ 0 [IDENTIFICATION DIVISION.] , [PROGRAM- ID. J , 
TDATA DIVISION.] , TW0RKING-ST0RAGE SECTION.] , [LINKAGE SECTION. 
J , TPR0CEDURE DIVISION USING GY0MU-A. J , TEX IT-PROGRAM J *3 «t If TEN 
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HuffiffltBL^/^^-^^^ T01 GYOMU-A.J , ["02 USERNAME PIC N(10).J 
, T02 USERID PIC X(8) . J ioXZf [02 SYORIFLUG PIC X(l) . J *£j£"t& 
o fllai^-C* 4 T GYOMU-AJ (i, yXfAtliW C#J <9 ft It * - i: & TO"? 

[0 0 2 7] 

0 1 0^3>/M^$ti/;7 o n^7AlifmL^2 7 0«i?:^to 111 3 U 
7jrfII®3 0 0frh%1&m<r>7-*7s h 7 A -;u K3 1 0, Kffl^f + X 

h7-f-^K3 2 0~BLXf#9 y 3 3 0 # S EI 7 "9 Mfc-^tiname, id,butt 

onhv^/^^-^^-e 1 ; noo ortKteJWSftTaiM < & c ?° 

u9'?^WL^2 7 0(iV * h 1 0 0 0 ££ltflfc»)^9;*-*ttim*B2 
7 1 "Cname^ ? * - 9 iZ&mZtiX^&T- 9 Ad'*? * - 9 Kt&lft £ *iT V> & 

7AlcSL£M*,Bl^&1-*^-*^&&2 7 3Tfflm$ti/j^-^(iH4 
(Olffi7 7^fiH:^$tiT^^J;^ tc,name{iH^7°n^7AOUSERNAMEhv^ 
ggctc-ry vf>^L,kanjiMt:T-*-^R«il 0 3C^, ffia6^(±X^- X * & <t 
n \Z$3SkZfiko id(iHf^7°n^^ AC0USERID<hv^^mn^-y I: >^L,chara 
cterM-e-x-^S«i8^, G&*t"CM#>^&" 0" * * X 7 iz$m% flh 
o but ton(iH^ 7"n^7A coSYORIFLUG i: v ^ « l^^^^L, numberMT -f 

[0 0 2 8] 

y°u9'yl^WLU2 7 2 (ilH 8 J: ? Kttiffi Lfcf- * fc-y- ^3EJftL 

, ^co|g^:||^7 0 n^7AH'£^^^^^-^ 1 0 1 0 £Native-f >?"7^-X 
?jt 1- 0 M r#5S * 9 ^ - * * <£T L Cff 7>n ^ v A * nff £ -£ 

[0 0 2 9] 

Ell li:f-^M«7D-^^t 0 SR^Rl 10 0, JavaffiM^fc 
$111 110. Javaffllt^lHHM 1 111, Javafflil^MS 1 112. C0B0 
LfflI»Il 12 0, COBOLffiltT^-Wffil 12 1, C0B0Lffiffl#«& 1 
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122, cmmmmm^mi no, cmmm^tz^mmi 131, cmmm 
m 1 2 inffz^tm^^^^xj^'tc tz^mwft 1200 zm°-tz> 0 \m> 

L%^Wi&l*l 2 1 OOATJ^LT, 1 2 1 l^n^^i:^^ £mt£ 
^Hir^Td <h 1 2 2 OWA^i:^Lt 1 2 2 1 OJ: 0 ^t£^£ti£ 0 7£Utt£?F 
^£tT^S^x^-x£ffiv>.2> <h, 1 2 3 0(il2 3 1OJ:^ Uf&*ft$n&o 
£1?^,ffi#Wx^-Xfi<!: 1240 (i 124 lWii ic^^ti^o ^1tl~ 
ttU'OWTfr&v^ 1 2 5 0 ii 1 2 5 1 Oct -? IzffimZtiZo ifttit^tU^I? 
^£tTVvlla6^^x^-X i:1260(i 1261 Oct ^ 

0 0 £S#>^lcffiv>& M 2 7 0li 1271 Oct ? ^t&iW$*L* 0 
[0 0 3 0] 

HI 3 [Z^W%*f8^fzm^W&r>3-7* f ^13 0 Oom^rll^^i-o IB®£ 
IPSi:i^$^iIt*i- 13 10 £I.&rt ? <b> MM? Tj)V%a - Kt"a- 

1 3 2 0^t>«H*ff^o Sl7r ^^OSa-|ffW^«$^^ll^-7 0 
n ^7 A wjll^lf '/n ^7 A tf a - 1 3 3 0 K : £7f;21%2>(DT\ffl%%lZ,ffl 

^t/o^ovtti^ife^-r^o 

[0 0 3 1] 

m&)7-*-?^mmmy r 4^2 2 o-c^$;ft&®®3 0 oo-r^x h?*- 

^ K3 10 tC^fi^A^J Lr^X h7^f-;VK3 2 0 ^/n°X7- K£A7J Ltzh 
t&fetf* y 3 3 0 £ffl>T-t"& t£lffl(iname, /n°X7- K(±id, 
T Ltzmmibuttont^i * - ? t L "CIxte £ ti, a? 9 ^ - * (i^O^O^ 
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ti-TftM L,f - *^M&2 7 3 -e-en-e'n<75-r'-^^namei±kanjiM> 1 0 3: 
^ X^-X-CS#>^M> id«icharacterl)-e 8 ^-tir-et&ffl L" 0" 

-CS^M.buttonlinumbergJ-C 1 ^7 ^ ^ t-^lft^fir^o ^ft-T^iO 

(±Hf^-7'n ^7A -enameiiUSERNAME, id(£USERID, buttontiSYORIFLU 
G<h WjS-^v^rv^<7)^\Native'f >9 7x-^ (COBOL) 1 7 OWf^^V'y K 

^ffflity^^-^ zmm-t ho >^ * - 9 <nmmm*> o 7 o n ? ? a 
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1 0 0 51* 

1 1 0 HlffiA 

1 1 1 yn^AH^tbLg&A 

1 1 2 ff7 0 o^7AA (COBOL) 

1 2 0 ISMB 

1 2 1 7°n^*7 AO^m Lt$B 

122 ii7°n^7AB (COBOL) 

1 3 0 HffiC 

1 3 1 -fufyunttx LSRC 

1 3 2 Hf£7°n^AA (Java) 

14 0 ^7 

1 5 0 WeW-^ 

16 0 Servlet 

1 7 0 Nat ive^ > * 7 i - X (COBOL) 

180 Native^ > ^ "7 i-X (Java) 
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[0 4] 



04 



<html> 
<head> 

<tide>-^X//K/titie> 

<metahttpequiv="Content-Type n content="te^tmt 

^rf^teDiefi P^m, R ™ne="session" className=\Sample.Page" 

rinMaTr>f»="S AMPLE" i ^'SanmlePa Pft " r>rogramName= NEWUSh/K 

WnrH="COBOL"> 7 

<jMldata n a me="n*mp" interface="USERN AMF,"size="10" 

f ypR^'-kanii" paddingCh ar="space" /> 
*\M:A*ta name= "^" interface="USF,RTD" size="8" 

t Ypp=Vharac^r" alignment -right" naddingChar="zero" /> 

<jfH:Hs.ta name^WW mterf ace =" SYORIF LUG" size="l" ^ 
t yp P ="number" / > 203 
</jfd:dataDefinition> _ 



</head> 

<body bgcolor="#FFFFFF" text="#000000"> 
<form name="forml" method="post" action-'*"> 

<input type-'text" name="name"> 

<input type="text" name="id"> 

<input type="submit" name="button" value="i£la"> 

</form> 
</body> 
</html> 
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Sample.Page 




SAMPLE 




NEWUSER 


m pp 


COBOL 
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COBOL 










name 


USERNAME 


kanji 
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space 


id 


USERID 


character 
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right 


zero 


button 


SYORIFLUG 


number 
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^630 




650 



660 



1 



^"670 




682 



• Native ^y^?*— * 
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[0 7] 



117 



<%9 page contentType=" text/html ; charset=Sh i f t_J I S" X> 

<X8 page import=" java. io.Fi le" X> ^ 

<iso:useBean c lass="Sa«ple. Page" id="S aiiplePage" scope=" session /> 

<htiil> ^ 
<head> ZZ1 
<title>+f>^K/title> 

<neta h t tp-equiv=" Con t ent -Type" content=" text/html ; charset=Shi f t_J IS > 
</head> 

<body bgco I o r=" f FFFFFF" text="#000000"> 

<fom narae="fornir «ethod="post" act ion="Sa«pl e"> 

<input type="text" name="name" value="<X= SamplePa ge. eetNawe valueQ %> > 
<input type="text" nawe="id" value="<X= SamplePage. getld valueQ X>" > 
Onput type="subni t" na«e=" button" ^ 
value="<X= SamplePage. qetBut ton valueQ %>"> ^2 

</for»> 

</body> 
</html> 



T 
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ms 

package Sample; 

pubi ic class Page { 231 
Page 00 / 



public void setNane (Object data) { 
»yBean.setUsernane(jfdDataLJust(jfdConvJStr(data. toStringO), " 20)); 

} 

public void setld(Object data) { 
■yBean.setUserid(jfdDataRJust(ifdConvJStr(data. toStringO), "0", 8)); 

} 

public void setButton(0bject data) { 
ByBean.setSyoriflug(jfdDataLJust(jfdConvJStr(data.toStringO), " ", D) ; 

} 



public Object getNaneOO 
publ ic Object getldOO 
public Object getButtonOO 

public void execute(HttpServletRequest req) { 



232 

Jl. 



String name = req. getParaneterf name") ; 

setNane(nane) ; 
String id = req. getParameter (" id") ; 

setld(id); 

String button = req.getParameterCbuttorf ) ; 
setButton(button) ; 



I myBean.cal I COBOL 0 ; 



5" 

233 



T 

230 



tBliE# 2003-3054354 



0 0 2 -1 *8 8 9*3 8 



9/ 
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(COBOL) 

IDENTIFICATION DIVISION. 
PROGRAM-ID. NEWUSER. 



DATA DIVISION. 
WORKING-STORAGE SECTION. 



01 SYSTEMNAME PIC N(10). 

01 SYSTEMID PIC X(8). 



LINKAGE SECTION. 



01 GYOMUA. 

02 USERNAME PIC N(10). 

02 USERID PICX(8). 
02 SYORIFLUG PIC X(l). 

PROCEDURE DIVISION USING GYOMUA. 252 



MOVE USERNAME TO SYSTEMNAME 
MOVE USERID TO SYSTEMID 

MOVE 0 TO SYORIFLUG 



EXIT-PROGRAM 



END-NEWUSER. 

5" 
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Java 








Ex. 




X^n^ String^ 


^C^ii-^BigDecimalM 
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nil 
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Ex. 

3C^IJ-X(n) 
^C^iJ-»9(n) 
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jt=?^J->long M 
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<html> 
<head/> 

<jfd'dataDefinition ••-> 

<fjd-data name— 'name" interface-' UserName" /> 
<jfd'data name - 'id" interface- 'Uesr Id" /> 
<jfd:data name^button' interface="SyoriPlug ,, /> 
</jfd : dataDe£inition> 

<bodyxform> 

<input type- 'text" name- w name"> 
<input type- 'text" name="id"> 
<input type- 'submit" name="button"> 
</form></body> 
</html> 
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Program-ID NewUser 

Data Division 

Copy Gyomu-A 

01 UserName Pic N(10) 

01 Userld Pic X(8) 

01 SyoriFlug Pic X(l) 

1331 
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End NewUser 
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